﻿<%

Function get_data()

		DIM data
		
		data = Year(date) &  "-" & completar_zeros(Month(date),2) & "-" & completar_zeros(Day(date),2) & " " & completar_zeros(hour(Now),2) & ":" & completar_zeros(minute(Now),2) & ":" & completar_zeros(second(Now),2) 

		get_data = data

End Function

Function get_data_formatada_br()

		DIM data
		
		data = data_formatada(get_data(), "D/M/A h:m")

		get_data_formatada_br = data

End Function

Function get_data_formatada_br_data(data)

		data = data_formatada(data, "D/M/A h:m")

		get_data_formatada_br_data = data

End Function

Function get_data_formatada(formato)

		DIM data
		
		data = data_formatada(get_data(), formato)

		get_data_formatada = data

End Function

Function data_formatada(data, formato)

		DIM Ano, Mes, Dia, Hora, Minuto, Segundo
		
		Ano = Left(data, 4)
		Mes = Mid(data, 6,2)
		Dia = Mid(data, 9,2)
		Hora = Mid(data, 12,2)
		Minuto = Mid(data, 15,2)
		Segundo = Mid(data, 18,2)
		
		formato = replace(formato, "A", Ano)
		formato = replace(formato, "M", Mes)
		formato = replace(formato, "D", Dia)
		formato = replace(formato, "h", Hora)
		formato = replace(formato, "m", Minuto)
		formato = replace(formato, "s", Segundo)

		data_formatada = formato

End Function

Function data_pt_en(data)
		
		DIM Ano, Mes, Dia, Hora, Minuto, Segundo
		
		datas_spl = split(data, " ")
				
			dia_c = split(datas_spl(0), "/")
			Dia = dia_c(0)
			Mes = dia_c(1)
			Ano = dia_c(2)		
		
			Hora = 0
			Minutos = 0
			Segundos = 0		
		
		If Ubound(datas_spl) = 1 then
		
			hora_c = split(datas_spl(1), ":")
			Hora = hora_c(0)
			If Ubound(hora_c) >=1 then Minuto = hora_c(1)
			If Ubound(hora_c) = 2 then Segundo = hora_c(2)
		
		End If
		
		data = Ano &  "-" & completar_zeros(Mes,2) & "-" & completar_zeros(Dia,2) & " " & completar_zeros(Hora,2) & ":" & completar_zeros(Minuto,2) & ":" & completar_zeros(Segundo,2) 

		data_pt_en = data

End Function


Function diferenca_datas(data_1, data_2, intervalo)

		'yyyy) anos; q) trimestres; m) meses; w)semanas; d) dias; h) horas; n) mminutos; s)segundos
		diferenca_datas = DateDiff (intervalo, data_formatada(data_1, "D/M/A h:m:s"), data_formatada(data_2, "D/M/A h:m:s")) 

End Function

Function adicionar_datas(data, valor, intervalo)

		'yyyy) anos; q) trimestres; m) meses; w)semanas; d) dias; h) horas; n) mminutos; s)segundos
		adicionar_datas = DateAdd(intervalo,valor,data_formatada(data, "D/M/A h:m:s"))

End Function

Function data_converter_banco(data)

		data_converter_banco = Mid(data,7,4) &  "-" & completar_zeros(Mid(data,4,2),2) & "-" & completar_zeros(Left(data,2),2) & " " & completar_zeros(right(data,8),2) 

End Function

Function data_converter_banco_br(data)

		data = data_formatada(data_pt_en(data),"D/M/A h:m") 
		
		data_converter_banco_br = data

End Function

Function verificar_data(data, formato)

		DIM i, car_2, char_1, char_2, check
		
		check=true
		
		If len(data) = len(formato) then

			FOr i=1 to len(data)
			
			car_2 = Asc(Mid(formato,i,1))
			char_1 = Mid(data,i,1)

				If (car_2>=65 AND car_2<=90) OR (car_2>=97 AND car_2<=122) then
				
					If IsNumero(char_1) = false then  check = false
				
				Else
				
					
					char_2 = Mid(formato,i,1)
					
					If char_1 <> char_2 then check = false
				
				End If

			Next
			
		Else
		
			check = false
			
		End If
		
		verificar_data = check
		
End Function


%>